home *** CD-ROM | disk | FTP | other *** search
/ PCMania 64 / PCMania CD64_1.iso / phy / phy001 / graph / graph20.arj / DEMOS / EXEMPAS / PROBA.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-08-29  |  1.7 KB  |  74 lines
  1. {$M 64000,0,655360}
  2. PROGRAM ProbaDeGRAPHiPascal;
  3.  
  4. USES Crt, grflib;
  5.  
  6. CONST
  7.    VGA  =  0;
  8.  
  9. VAR
  10.   HPAL,
  11.   hfont,
  12.   pv1      : Byte;
  13.   i, j, s  : Integer;
  14.   Msg      : Array [1..10] of String;
  15.   Clock    : Integer;
  16.   Col      : Byte;
  17.  
  18. BEGIN
  19.   InicGRAPH(1,0);
  20.   ASM
  21.     { Truco para doblar la altura de los pixels: }
  22.     MOV dx,3d4h
  23.     MOV al,9
  24.     OUT dx,al
  25.     INC dx
  26.     IN  al,dx
  27.     AND al,0e0h
  28.     ADD al,3
  29.     OUT dx,al
  30.   END;
  31.   pv1:=CreaVirtual;
  32.   BorraPantalla(0, pv1);
  33.   BorraPantalla(0, VGA);
  34.   CambiaTipo(8);
  35.   hfont:=CogeFuenteDOS;
  36.   PonPaleta(CargaPaleta('paleta.col'+chr(0)), 0, 0);
  37.  
  38.   Msg[1] := '    Hola a tots, açó és Pascal + GRAPH'+chr(0);
  39.   Msg[2] := '   Hola a todos, esto es Pascal + GRAPH'+chr(0);
  40.   Msg[3] := '  Hello everyone, this is Pascal + GRAPH'+chr(0);
  41.   Msg[4] := '=========================================='+chr(0);
  42.   Msg[5] := '------------------------------------------'+chr(0);
  43.   Msg[6] := '__________________________________________'+chr(0);
  44.   Msg[7] := '..........................................'+chr(0);
  45.  
  46.   s:=1; clock:=100;
  47.   Repeat
  48.     If s>7 Then s:=1;
  49.     If clock>15 Then
  50.      BEGIN
  51.        clock:=0;
  52.        SetCursor(20, 10);
  53.        Escribe(hfont, Msg[s], pv1, $FF, 18, 18);
  54.        Inc(s);
  55.      END;
  56.     For i:=1 To 318 DO
  57.      BEGIN
  58.        For j:=1 To 99 DO
  59.         BEGIN
  60.           col:=(CogePixel(i  , j-1, pv1)+
  61.                 CogePixel(i-1, j-1, pv1)+
  62.                 CogePixel(i+1, j-1, pv1)+
  63.                 CogePixel(i  , j  , pv1)+
  64.                 CogePixel(i-1, j  , pv1)+
  65.                 CogePixel(i+1, j  , pv1)) DIV 6;
  66.           PonPixel(i, j, col, VGA);
  67.         END;
  68.      END;
  69.     CopiaPantalla(VGA, pv1);
  70.     Inc(Clock);
  71.   Until KeyPressed;
  72.   EndGRAPH;
  73. END.
  74.